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If your mailing label says 
RENEW, your subscription 
is about to expire! To 
avoid missing your next 
free issue of 
Product Profiles, renew 
IMMEDIATELY by filling 
out and returning the front 
cover coupon for a free 
subscription! The last two 
digits of your mailing label 
indicate the number of the 
last issue you'll receive. 
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207 Granada Drive, Aptos, CA 95003, 
(408) 688-9200. 

Entire contents copyright © 1988 by 
Semaphore Corporation. 

All rights reserved. No part of this 
publication may be reproduced in any 
form or by any means without prior 
written permission from Semaphore. 
Semaphore offers no warranty, either 
express or implied, for any losses due to 
the use of any material published. 

Subscriptions are free, but are available 
only to Pick users with USA mailing 
addresses. Semaphore cannot be 
responsible for lost issues or issues 
returned to us because of address 
changes. 

All material received will he considered 
for publication. Semaphore reserves the 
right to edit all submittals. 

Pick is a trademark of Pick Systems. 
Semaphore Corp. is not affiliated with 
Pick Systems. 
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FREE ADVERTISING! 

You can advertise your product or service in 
Pragma's Product Profiles, absolutely free and without 
obligations of any kind. Free ads must be black and 
white. Ads will be accepted only in the sizes shown. 


• 

• 

• 

Ads must be single-piece, unmounted, 
camera-ready positives, such as a photostat 
or velox. Do not send mechanicals, multi- 

Ad width in inches 

• 

• 

• 

piece pasteups, mounted artwork, negatives, 
or film. Halftones must use 85-line screens. 

2.75 

4.50 

6.00 

10.00 

• 

• 

• 

Send your ad 
to: Semaphore, 
207 Granada 
Drive, Aptos, 

CA 95003, 


2.75 

✓ 

✓ 



• 

Ad 

6.00 

✓ 

✓ 

✓ 

✓ 

• 

• 

• 

408-688-9200. 
Materials will 
not be returned. 
Ads are run at 
Semaphore's 

height 

in 

9.25 

✓ 

✓ 

✓ 

✓ 

• 

! • 

inches 

12.50 

✓ 

✓ 

✓ 


■ l 
• 

discretion, on a 
space available 


13.00 




✓ 


FREE MAG TAPES! 

Standard 2400 foot 1/2" reels of magnetic 
tape, compliments of Semaphore 
Corporation. For your FREE tape, send a 
stamped, self-addressed envelope large 
enough for a reel of tape and with 
SUFFICIENT POSTAGE FOR 3 POUNDS BY 
RETURN MAIL. There's no limit to the 
number of tapes you may receive, but 
requests with insufficient postage will be 
ignored. Or write us or call 408-688-9200, 
tell us your Federal Express account 
number to charge, and we'll ship you a 
carton of ten tapes by Standard Air rates 
using our packaging. 

Semaphore Corp., 207 Granada Dr., Aptos, CA 95003 


FREE Back Issues 


f A fe^tack issues of Pragma's Product Profi/esarestill 
available while supplies last. To receive your FREE 
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For over two years. 

Semaphore has been marketing 
a B-tree software package for 
Pick users. The following 
article is based on a recent* 
issue of BTP/Branches, a 
newsletter Semaphore 
distributes to its B-tree 
customers. 

When not 
to use B-trees 


REFORMAT to create the INDEX file, 
the following program finds the part 
number for a given description: 

001 OPEN "INDEX" ELSE STOP 

002 CRT "Description": ; INPUT DESC 

003 READ PART FROM DESC THEN 

004 CRT "Part number = " : PART 

005 END ELSE CRT "Description?" 

006 STOP 

007 END 


Unfortunately, inverting the 
file with REFORMAT has a number 
of disadvantages: (1) some 
descriptions may be too long for an 
allowable item identifier, (2) the 
exact description must be known to 
find a part number, (3) once a part 
number is found for a given 
description, the previous or next 
description cannot be determined 
easily, (4) storage is wasted by 


keeping descriptions in both the 
data and index files, and (5) a more 
complicated and possibly huge item 
structure is necessary (typically a 
multivalued list) if multiple part 
numbers share the same 
descriptions. 

A better way to build an 
index file that avoids all of the 
above problems is to first 
SSELECT the PARTS file by 


B-tree index files are 
powerful not just because they 
allow any file item to be 
immediately located using any 
attribute as a key, but because 
they work even when the file is 
very dynamic, with items 
constantly being inserted, 
changed, or deleted. 

For example, imagine an 
invoice file where a significant 
quantity of invoices are created 
and changed every day. If you 
need the capability to find an 
invoice for a given part 
number, then using a B-tree to 
index invoices by part would 
be a good solution to your 
problem. 

On the other hand, 
imagine a parts file where new 
itero*|re infrequently added or 
chflBl (say, once every few 
months) and rarely deleted. It 

B-treeto allow instant lookup 
of ^^Bt number for a given 
description, but a B-tree is 
probably overkill in this 
situation, since the data file 
being indexed rarely changes. 

Whenever a data file is 
relatively static and 
unchanging, it may be better to 
use an indexing method 
simpler than B-trees, such as a 
minimum file of pointers that 
is completely rebuilt any time 
the target data file is changed. 

Let’s say we have a 
rarely-changing PARTS file 
with part numbers for the item 
identifiers and descriptions in 
attribute one. A typical Pick 
method to allow finding the 
part number for a given 
description is to create an 
index file by inverting the 
attributes in the data file. For 
example, if every part has a 
unique description, then we 
can use a command like 
REFORMAT PARTS *A1 *A0 
to create a file (say, INDEX) 
where the part descriptions 
become the item identifiers 
and the corresponding part 
numbers are in attribute one, 
making it very easy to look up 
a part by description. For 
example, once we use 


SCHEDULER 




SCHEDULE APPOINT¬ 
MENTS MONTHS OR 
YEARS IN ADVANCE 


READILY IDENTIFY 
AVAILABLE APPOINT¬ 
MENT TIMES 


MAINTAIN A RECORD OF 
MISSED OR BROKEN 
APPOINTMENTS 



OVERBOOK WHENEVER 
NECESSARY 






INSTANTLY DISPLAY 
DATE AND TIME OF 
MOST CURRENT 
APPOINTMENT 


ACCURATELY GAUGE 
APPOINTMENT 
AVAILABILITY FOR A 
GIVEN WEEK 

effo^Hssly 
dispcPtor PRINT AN 
APPOINTMENT LISTING 


AUTOMATICALLY 
GENERATE RECALL 
NOTICES 


EASILY VIEW PREVIOUS 
OR NEXT DAY 
APPOINTMENTS 


T he complete solution for your scheduling needs is 
available now. Exclusively from MetaStat. 


See Scheduler® and the MetaStat Practice Management 
System® by contacting your local MetaStat representative 
today. 



MetaStat Computer Systems 
1139 Fehl Lane 
Cincinnati, Ohio 45230 
(513) 232-0788 


©Scheduler is available for all PICK-based systems. PICK is a trademark of PICK Systems, Irvine, CA. 
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description (and by any other desired subsorts), 
then use a program like 



of part descriptions. For example, item 5 in the 
INDEX file contains the part number that is listed 
fifth when parts are sorted by description. 

Once the INDEX file has been built by 
FILL.INDEX, a “browser” program can be used 
to find part numbers for a given description. For 
example, 

FIND.PART 

001 EQU desc.amc TO 1 ;* AMC in PARTS file 

002 EQU middle TO 11 ;* Middle screen row 

003 EQU around TO 10 ;* # rows around middle 

004 OPEN "INDEX" TO I.FILE ELSE STOP 

005 OPEN "PARTS" TO P.FILE ELSE STOP 

006 CRT@(-1): ;* Clear screen 

007 READ MAX. ID FROM I .FILE, "MAXI" 

ELSE MAX.ID = 0 

008 INDEX.ID = INT(MAX.ID/2) ;* At midpoint 
009 100 CRT @ (0,middle-around) : ; * Mid row 
010 MIDDLE. ID = INDEX. ID ;* Remember mid id 
Oil FOR INDEX.ID = MIDDLE.ID-around 
TO MIDDLE.ID+around 

012 GOSUB get.desc ;* Get PART. ID and DESC 


Tire^wwaiting for your computer to SORT or SELECT your large data 
files? NeOTTO quickly find any attribute? Want to scroll files up or down, in 
any sort order? With B-TREE-P you can instantly search, sort, and scroll any 
data from any file! 

Now you can instantly look up customers by name, street. Zip code, or 
any other field — not just by customer number. Now you can immediately 
find inventory entries by quantity, cost, or description — not just by part 
number. Whatever files you use, now you can instantly locate and display 
your data any way you want, without having to wait for endless SORTs and 
SELECTS. 

Immediately display any record in any file just by typing one or more 
starting characters that match any field in the record. You can display not 
only a selected record, but also any previous and next records, using any 
sort order you specify. You can jump to any record in a file at any time, 
then browse through the file by scrolling up or down, a record at a time or a 
page at a time, in any sort order. 

As one of Semaphore's programmers says: ”We often ask ourselves 
why we waited so long to create B-TREE-P. After using it for our own 
production work, we wonder how we ever got by before without it. A Pick 
computer without B-TREE-P is like a car without wheels". 

B-TREE-P is a proven collection of BASIC subprograms for using B-trees 
on your computer system. B-trees allow any of the data in any of your files 
to be instantly located and displayed in any sort order, without having to 
wait for SORT or SELECT commands. 

B-TREE-P and a few optional minor modifications to your existing data 
entry programs are all that is necessary for you to immediately be able to 
search, browse, display, or print your data quickly and conveniently. 
Modifications to your existing data files are absolutely unnecessary! 

Here are a few of the ways our customers have put B-TREE-P to work: 

• Within minutes of loading the B-TREE-P source code, one of our first 
customers began using B-TREE-P's standard "browser" for searching a 
120,000+ record customer master file. Any name, company, or address can 
immediately be located and displayed, just by typing one or more 
characters that match the field. No more waiting for SELECTS! 

• Another customer has set up B-TREE-P for purchase order inquiries. A 
file of multivalued line items and submultivalued delivery dates and 
quantities can instantly be viewed by item or by date. Pages can be 
scrolled at the terminal, forward or backward. Any range of data can be 


l^antly printed. No more waiting for SORTs! 

• A California county jail uses B-TREE-P for inmate cash accounting. 
Although cash records are filed by inmate booking numbers, B-TREE-P allows 
a list alphabetized by the name attribute to be displayed at all times, even 
as records are created and deleted at other terminals. Any inmate record 
(or nearest match) can be immediately found and displayed just by typing 
one or more characters in a name. 

• A manufacturer uses B-TREE-P to let marketing personnel instantly 
display sales orders six different ways: by part, by description, by ship date, 
by sales rep, by customer name, and by sales territory. With just a few 
keystrokes, operators can instantly display records under a new sort (subsorts 
too) or find and output a given item. 

B-TREE-P includes all necessary BASIC source code for a B-tree system 
that works with any file. Included are an insertion subroutine, deletion 
subroutine, lookup subroutine, previous/next subroutine, and complete 
instructions. Plus, you receive the source code for a complete 
demonstration system that uses B-TREE-P to maintain a name and address 
file, including an editor program for creating and changing name and 
address records, a browser program for displaying records, and a printer 
program for listing file items in order without having to wait for a sort. 

To order, send your name, address, telephone 
number, and your check for $395 (plus tax in 
California) payable to Semaphore Corp. at 
207 Granada Drive, Aptos, CA 95003. Or call 
us at (408) 688-9200 for more information or to 
place a COD order. We'll send you complete 
B-TREE-P source code and all necessary 
documentation, along with all back issues of 
our special B-tree newsletter. 

B-TREE-P includes a license agreeement limiting your use of B-TREE-P to one computer at a time. Multi-CPU 
and OEM resale agreements are also available. Pick is a trademark of Pick Systems. 
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Questions Most Frequently Asked 

About STRIDE/Z 

1. What is STRIDE/Z? 

STRIDE/Z is an integrated package of manufacturing software for General 
Automation Zebra computers using the Pick operating system. STRIDE/Z is a 
product of Semaphore Corporation. 


2. What software is included in the STRIDE/Z package? 

STRIDE/Z includes 18 modules to automate every aspect of a 
manufacturing company: accounts payable, accounts receivable, cost 
accounting, customer service, engineering, fixed assets, general ledger, 
inspection, order entry, payroll, personnel, production control, programming, 
purchasing, receiving, shipping, shop floor, and stock room. The production 
control module includes regenerative Materials Requirement Planning. 

STRIDE/Z consists of approximately 200 programs, 350 procs, 80 formatted 
screens, 655K bytes of online user documentation, and 225K bytes of online 
programmer cross reference documentation. The approximately 100 files in 
STRIDE/Z require 2.5 million bytes of disk space for installation. STRIDE/Z uses no 
as^mbler code. £ ^ 

3. Why is STRI DE/ j y a attet than othet , manu facturing packages? 

^JRIDE/Z works. It was developed fmm scratch over a two year perioctet 
an actual electronics manufacturer, as sales climbed from $ 10 million to over 
$20 million. 


STRIDE/Z has a clean, modular, well-structured, and conceptually integrated 
design. All design and implementation work was the effort of an individual 
programmer. Unlike other large software products, STRIDE/Z is not a collection 
of ad hoc patches and multiple programming styles. 

STRIDE/Z simultaneously and correctly updates multiple files as soon as 
transactions are entered, in order to provide a database that is always up to 
date, and to avoid unfriendly batch-style processing. 

STRIDE/Z is well-documented, especially for the programmer. Extensive 
cross-references carefully document all program, proc, and data 

interdependencies, so that modifications 
are easy and predictable. 

1 And STRIDE/Z is inexpensive. 

4. How can I find out more about STRIDE/Z? 

Call or write Semaphore Corporation, 

207 Granada Dr., Aptos, CA 95003, 

(408) 688-9200. 





Semaphore Corporation welcomes its 
newest B-TREE-P customers: 

Denticare Inc. 

Dealer Software Inc. 
Aluminum Forge Company 
Business Sciences Inc. 
Prestonwood Baptist Church 
Benefit Systems Inc. 

Emerald Publications 
George R. Smith Accounting 
William Bloom & Son Inc. 

Dana Corporation 
Wayne Schachtel Consulting 
Sysgen Inc. 

Bellingham Cold Storage 


013 CRT PART.ID "L#20" : DESC "L#50" ; * Show item 
014 NEXT INDEX. ID 

015 CRT @ (0, 23) : @ (-3) : "P or X or <return> or <desc>": 
016 INPUT COMMAND: 

017 BEGIN CASE 

018 CASE COMMAND = "P" ; INDEX. ID = MIDDLE. ID-around 
019 CASE COMMAND = "X" ; STOP 

020 CASE COMMAND = *" ; INDEX. ID = MIDDLE. ID+around 
021 CASE 1 ; * Assume COMMAND is a description 
022 LEFT = 0 ; RIGHT = MAX. ID ; LAST. ID = "" 

023 GOSUB search ;* Perform binary search 
024 END CASE 
025 GOTO 100 
026 * 

027 get.desc: * Get PART. ID and DESC for INDEX. ID 
028 READ PART. ID FROM I.FILE, INDEX. ID ELSE PART. ID="" 
029 READV DESC FROM P .FILE, PART. ID, desc. amc ELSE DESC= 
030 RETURN 


COMPUTER CABLING PROBLEMS 
Let BASELINE SERVICES help! 

We can install cables or provide you with 
pre-made cables. We also sell all the cabling 
hardware you need to do the job 
yourself (cable, pins & Dll’s). 

Call or write TODAY for our free catalog. 
(916) 756-7024 1209 Alice St. 

(714)859-1332 Davis, CA 95616 



Pragma (not to be 
confused with 
Pragma' s Product 
Profiles) is the 
original 48-page 
technical journal for 
Pick users published 
quarterly beginning 
in August 1982. 
Each issue is packed 
with software and 
helpful information, 
including complete 
and debugged 
program listings and 
detailed, explanatory 
articles for readers at 
all levels of 
experience. Order 
your Pragma issues 
today and begin 
unlocking the secrets 
in your Pick system! 

Send $25 for 
each 48-page 
back issue to: 
Pragma, 207 
Granada Dr., 
Aptos, CA 
95003 
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032 search: * Perform binary search 

033 INDEX.ID = INT((LEFT+RIGHT)/2) ; IF INDEX. ID = LAST. ID THEN RETURN 
034 LAST. ID = INDEX. ID ; GOSUB get. desc ;* Get DESC for INDEX. ID 
035 IF DESC = COMMAND THEN RETURN ;* Matches 

036 IF DESC > COMMAND THEN RIGHT = INDEX. ID ELSE LEFT = INDEX. ID 
037 GOTO search 
038 * 

039 END 

The FIND.PART program takes advantage of the INDEX file to avoid all 
the problems of a REFORMAT-style inversion. It provides a nice interface that 
allows an operator to locate part numbers by description. FIND.PART displays 
a portion of the list of parts and their descriptions in description order, and then 
accepts four types of input. Hitting just the return key displays the next page of 
parts and descriptions, typing a P displays the prior page, typing an X exits, and 
typing anything else searches for and displays the parts with descriptions that 
most closely match the input. FIND.PART makes finding a part number as easy 
as finding a name in a phone book. Maybe even easier. 

Can you tell what happens when only a portion of a part description is 
typed in? How about when P is typed at the top of the description list, or when 
return is hit at the end of the list? Is it useful to highlight the middle row of the 
screen? Or display more part item attributes instead of just descriptions? 
Enhancements to FIND.PART are left as exercises. 

It’s easy to adapt FIND.PART for browsing other files, indices, and 
attributes. The only problem with this type of indexing system is that, unlike 
B-trees, any time the data file keys change, the index file must be completely 
rebuilt. In other words, if a new part description is created, or if an old 
description is changed or deleted, then FILL.INDEX must be used to recalculate 
the INDEX file. (Tricks can be used to adjust items in the INDEX file to 
postpone complete rebuilding, but you can’t get unlimited insert/delete 
operations that retain fast search times like B-trees do.) The advantage of a 
B-tree system is that pointers can immediately and quickly be adjusted any 
number of times, without ever rebuilding the index file. 

For stagnant data like our PARTS file, FILL.INDEX and FIND.PART 
may be quite acceptable. But for a large volume transaction environment such 
as our^^_oice file, B-trees are a better way to index. 


FREE MAG TAPES! 



See page 2 for details. 


Precision math 

The final solution to the insufficient 
range of numbers on your 
Pick-compatible computer system 

□ My financial calculations 
sometimes get the wrong answer 

□ I need more digits and more 
decimal places in my 
calculations 

□ I need to use exponential 
notation 

□ I must know that the results of I 
my calculations are correct—I 
can’t afford incorrect results just 
because my numbers sometimes 
become too large or too small 

□ I need a solution which 

interfaces easily with my j 

existing software 

CZI All of the above 

omt Dealer Inquiries Invited 

COhm Tlflfi 21170 Via Teododo 

^ (Tft Yorba Linda, CA 92686 USA 

JlM/C.0 Tel: (714) 777-9056 Fax:(714)777-0728 


CPUS 

The Complete Security 
Package for Your System 

SYSPASS 

• Logon password encryption 

• Separate logon and spool job passwords 

• Maintenance program with on-line help allows input and 
display of any character in both passwords 

GREEK 

• True item-level encryption for sensitive data protection 

• Password protection may be specified by file or down to the 
item level 

PASSWORD 

• Provides password protection of individual verbs 

• Enabled by any combination of port number or account 

• Sensitive or misused verbs need no longer be removed from 
accounts 

• Maintenance program with on-line help 

WATCHER 

• Records all TCL commands, from a PROC or TCL, along 
with time, date and authoring port number 

• Ports to be monitored and which command-types are to be 
recorded are user-definable 

• A daily report shows all system activity 


omt 

comma 

smas 


Dealer Inquiries Invited 

21170 Via Teodocio 
Yorba Linda, CA 92686 USA 

Tel: (714) 777-9056 Fax:(714)777-0728 
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New B-TREE-P installations 
are sprouting up every day! 



B-TREE-P is software 
that allows your data to 
be instantly located and 
output, without having 
to wait for lengthy file 
sorts or searches. Join 
the growing number of 
sites discovering the 
power and flexibility of 
B-TREE-P. Write or 
call Semaphore Corp., 
207 Granada Drive , 
Aptos, CA 95003. 

(408) 688-9200.W 


Cg^cept Systems Inc. • Brigham Young University Kilo MicroAir • Diversified Computer Systems • 
ChiSPFil-A • Industrial Indemnity • Columbia Co • PEC Vectron • Advanced Technology L™s. • 
Arrowhead Water Co. • Mathis & Assoc. Inc. • Tricor America Inc. • Systems House Inc. • Vancouver 
Sanitary Service • Bottom Line Software Inc. • Brown & Caldwell Labs • Colonial Pacific Leasing • 
Marion County Republicans • Augmented Computer Technology • Premisys • Kripalu Center • 
Rollings Homes Inc. • Computerized Data • Ultimate Corp. • Elliott-Pope School • Toyota of Irving • 
Victory Express Inc. • Compu Components • Monterey County • Butterfields • Electronic Business • 
Kreepy Krauly USA • Tennessee Mat Co. • Zircon Co. Inc. • Smithsonian Institution • Call U.S. Inc. • 
Meditech • Unison Technologies Inc. • Wavetek • Moore Industries • Systems Support Services • 
Aerojet General • Target Supply • Lilyblad Petroleum • Partners National Health Plans • M. Epstein 
Inc. • Vitek Systems Inc. • J & L Industrial Supply Co. Inc. • Century Publishing Co. • Northwest 
Agricultural Coop Assoc. • Tampa Bay Mgmt. Services Inc. • Spectradyne Inc. • Crosstern Corp. • 
Magic Chef Air Conditioning Co. • Educators Mutual Insurance • Samuelson Assoc. Co. • Anthony 
Pools • Brooks Equipment Co. Inc. • Associated Students UCLA • Laub Group Inc. • United Collection 
Bureau Inc. • Pactel Paging • Access Software Inc. • Bronson & Bratton Inc. • ACS Systems Inc. • 
Topsy's International Inc. • Opportunities Unlimited • Glastron-Conroy Ltd. • XScribe Corp. • 
Minnesota Trade Office • Berelson Co. • San Mateo County • Creative Computer Services • 
Livermore Police Dept. • Hubert Distributing Co. • Reinsurance Assoc. • Oman Publishing • Capital 
Software Ltd. • Martin Cadillac Co. Inc. • NORPAC • AIPAC • Medical Accounting Systems • Sierra 
Software Inc. • May Trucking • Shoob Photography • Specialty Underwriters Inc. • Specs Music • 
ADDS Inc. • Excalibur Computer Systems Inc. • City of Irvine • Cornell University • Office Works • 
Assertive Systems • Conston Inc. • Wofford College • Chicago Kenworth • Eye Care & Surgery 
Center • Chandler Lumber Co. • Mark Card • Penn Independent Assoc. Inc. • Condominium 
Insurance • John Klein & Assoc. Inc. • Cooke Data Systems Inc. • Infocel • Multisystems Inc. 

• Generation Research • Miami Trading Enterprises • System Works Inc. • Flynt Systems Corp. • Life & 
Health Insurance Co. of America • Information Technology Consultants • Tel-A-Train Inc. • Data 
Operating Systems Inc. • Computyme • Stewart Co. • Trudell Trailer Sales Inc. • NCAR • Jet 
Electronics & Technology Inc. • Distributed Logic Corp. • University of California • Casualty 
Underwriters Inc. • Halprin Supply Co. • Long Beach Community Services. 
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